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1 SUBROUTIHE SUBCA,N) 

2 INTEGER H 

3 REiLL. ACABS(N)) 

4 WRITEC*.*) A 

5 END SUBROUTINE 
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END SUBROUTINE 
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1 char «cop7.8txtag(ehax *a) 

2 < 

3 ia.t i: 

4 diax <t>baif«r * (ehar*)ittalloeCatrl«i(a) * 1};. 
6 

6 for <i « 0; aCl] I- •\0': +♦« 

7 .bulfarCi] - aCiJi 
8 

9 ratrmi hutfwei 

10 > 
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1 char *copy_8trisg(cliar fa) 

a < 

3 iat ij ■ 
char *p: /* EXPANSION CODE */ 
iat tan; EXPANSION CODE */ 
•cap - 0: /* EXPANSION CODE ♦/ 

for (p - aj *p I- 'XO*; ++p) /«EXF%NSION CODE «/ 
**tmp; /* EXPANSION CODE */ 

4 char *baff«r ■ (char*}aMllocCtii9 ■*> 1): 
S 

6 for (1 - 0; aW I- 'XO': ++i) 

7 bnffarCU aCi]: 
8 

9 ratuxn buff ar; 

iO > 
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IF (Z.GT.EPS) TBZV 
A-Bl 

ELSE IF(ABSCZ).LE.EPS} TEEB 

1-B2 
ELSE 

1-B3 
EBD IF 
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IF (Z.GT.EPS) THEH 
A»Bi 

KT, SF f 

IF CZ.6E.0.0) THEK ! EXRftNSfON CODE 

TMP - Z I EXBXNSION CODE 

ELSE i EXR&NSION CODE 

TMP - -Z I EXR^SiON CODE 

EBD IF i EXRUMSlON CODE 

IF (TMP .LE .EPS) THEB 
A-B2 

EHD IF 
ZSD IF 



FIG. 3B 

PRIOR ART 



